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The  computer  code  FLAD  is  designed  to  compute  the  effects  of  laser 
irradiations  on  the  surfaces  of  materials.  FLAD  is  a  direct  translation  of 
the  code  CLAD,  which  was  written  and  documented  (Ne74)  by  R.  W.  Newman  of 
The  Johns  Hopkins  Applied  Physics  Laboratory.  To  indicate  the  applications 
of  the  code,  the  following  is  the  abstract  from  Newman's  report: 

A  Continuous  Wave  Laser  Damage  computer  program  (CLAD) 
has  been  developed  to  compute  damage  caused  by  a  high 
power  laser  beam  impinging  on  material  surfaces.  The 
program  includes  three-dimensional  conduction, 
temperature  dependent  thermal  properties,  radiation 
relief,  aerodynamic  heating,  laser  radiation  heating, 
heats  of  fusion  and  vaporization,  chemical  ablation,  and 
material  removal  for  flat  and  cylindrical  bodies.  The 
program  uses  finite  difference  techniques  to  compute  mass 
loss  and  temperature  histories  of  laser  irradiated 
metals,  ceramics,  and  ablatives.  This  report  discribes 
the  computational  methods  contained  in  CLAD,  along  with 
some  of  the  assumptions  and  limitations  contained 
therein.  The  report  is  written  as  a  user's  manual  and 
contains  a  description  of  the  main  program  required  to 
perform  a  CLAD  analysis.  Also  included  is  a  sample 
problem,  the  corresponding  main  program,  and  printed 
output,  which  will  familiarize  the  user  with  an  actual 
application  of  CLAD. 

CLAD  was  written  in  the  language  PL/1.  Under  contract  to  NRL,  SAI 
(Science  Applications,  Incorporated)  (Sc--)  converted  the  code  to  FORTRAN  IV 
and  made  the  modifications  necessary  for  it  to  run  on  the  TI  ASC  computer  at 
NRL.  Certain  enhancements  to  the  code  were  added  by  SAI;  these  enhancements 
are  described  in  their  report. 

In  addition  to  the  reports  just  cited,  portions  of  the  FLAD  files  on  the 
ASC  also  describe  the  use  or  workings  of  the  code.  These  portions  are 
indicated  in  Appendix  B. 

While  the  conversion  and  testing  seems  to  have  been  completed,  no  one 
seems  to  have  used  the  converted  code;  nor,  as  of  this  date,  does  anyone  in 
the  laboratory  seem  familiar  with  its  use.  All  that  exists  of  the  code, 
besides  the  two  reports  cited  above,  is  a  set  of  23  files  that  are  stored  on 
tape  in  the  ASC's  catalog  system. 

In  the  process  of  determining  the  applicablity  of  the  code,  it  was 
necessary  to  review  to  contents  of  these  23  files.  It  seems  worthwhile  to 
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document  the  contents  of  the  FLAD  files  so  that  other  lab  personnel  will  not 
have  to  go  through  the  same  process  before  they  use  it. 

In  Appendix  A  I  document  the  location  in  the  catalog  system  of  the  23 
FLAD  files,  along  with  a  brief  description  of  the  contents  of  each  file.  In 
Appendix  B  I  catalog  the  contents  of  all  the  files;  each  subroutine,  data 
set,  output  file,  and  so  forth  is  listed  with  an  indication  of  which  of  the 
FLAG  files  that  it  appears  in. 

SA I  created  a  procedure  for  using  FLAD  that  I  find  awkward— it  involves 
compiling  a  program  named  SIZER  and  linking  it  to  the  various  FLAD 
subroutines  for  each  use  of  the  code.  It  seems  simpler  to  me  to  rework  this 
system  so  that  all  of  the  recompiling  is  not  necessary. 

I  also  recommend  that  any  new  user  compile  all  of  the  subroutines  for 
himself,  rather  than  use  the  object  modules  that  are  stored  in  the  FLAD 
files.  In  that  way,  he  will  be  confident  as  to  what  version  of  each  routine 
has  been  linked  into  the  final  object  code. 
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APPENDIX  A:  FLAD  FILES  ON  THE  ASC  CATALOG  SYSTEM 

The  FLAD  files  created  or  converted  by  Bjork  are  stored  in  the  NRL  TI 
ASC  catalog.  They  are  on  tape  and  can  all  be  reached  using  the  pathname 

R00TsUSERCAT/D64/B10/BJ0RCl 

There  are  23  files  in  the  catalog,  which  I  have  named  "A"  through  "W". 

Table  A2  lists  these  23  files  by  label,  along  with  the  appropiate  pathname, 
version  number  and  file  organization.  The  nature  of  the  contents  of  each 
file  is  indicated  in  the  contents  column.  The  DS  files  are  all  libraries. 
The  symbols  that  are  used  in  Table  A2  are  listed  in  Table  Al. 


TABLE  A1 

SYMBOLS  USED  IN  TABLE  A 2 


SYMBOL  DESCRIPTION 

F  FORTRAN  file, 

o  Object  file, 

j  JSL  file, 

d  Data  file. 

P  Output  file,  sometimes  with  an  attendent  input  file. 

#  Descriptive  file  for  the  FLASTIC  system,  which  is  derived  from 

CLAD. 

<t  Descriptive  file  for  one  of  the  CLAD  subroutines.  The  first  fou 

letters  in  the  name  of  one  of  these  "t"  files  are  a  condensed 
version  of  the  name  of  the  subroutine  it  describes. 


DTIC 

ELECTE 
DEC  1  8  1984 


D 


B 


Accession  ?or 

NT  IS  GRAfcl 
DTIC  TAB 


Unannounced 

Justification 


By-  -  — - - - 

Distribution/ _ 

^Availability  Codes 


Dist 


Avail  and/or 
Special 


□  □ 


TABLE  A2 

FLAG  FILES  ON  THE  NRL  ASC  CATALOG 


LABEL 

NOOE 

VERS 

CRG 

CONTENTS 

COMMENTS 

A 

/BJLIB 

0 

OS 

F»  d ,  §  j  i 

Miscellaneous  Files 

B 

/BJSAFE 

0 

DS 

F,d,M 

Miscellaneous  Files 

C 

/CLDATA 

0 

DS 

d 

Principal  Data  Sets 

D 

/CLDATA 

1 

DS 

d 

Copy,  more  or  less,  of  D 

E 

/CLDJSL 

0 

DS 

j 

DO  NOT  USE 

F 

/CLDJSL 

1 

OS 

j 

DO  NOT  USE 

G 

/CLIB 

0 

DS 

F 

Principal  FORTRAN  file 

H 

/CLIB 

1 

DS 

F 

Copy,  more  or  less,  of  G 

I 

/CLMAIN 

0 

PS 

0 

DO  NOT  USE 

J 

/CLOBJ 

0 

DS 

0 

DO  NOT  USE 

K 

/CLOBJ 

1 

DS 

0 

DO  NOT  USfe 

L 

/CLOBJHE 

0 

DS 

0 

DO  NOT  USE 

M 

/CLOBJHE 

1 

DS 

0 

DO  NOT  USE 

N 

/FEMLIB 

0 

DS 

F 

Program  SIZER 

0 

/MAINSR 

0 

PS 

F 

Program  SIZER 

P 

/MAINSR 

1 

PS 

F 

Program  SIZER 

Q 

/MELTERS 

0 

DS 

F 

Subroutine  QFUSION 

R 

/NEWBJSAF 

0 

DS 

d»  j 

Miscellaneous  Files 

S 

/PLTFILES 

0 

DS 

P 

Three  Output  Files 

T 

/PRTFILES 

0 

DS 

P 

Three  Output  Files 

U 

/SPAWN 

0 

DS 

0 

DO  NOT  USE 

V 

/TCI ADI OP 

0 

PS 

P 

Output  File 

W 

/TCI ADI OT 

0 

PS 

P 

Output  File 

S' 
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APPENDIX  B:  CONTENTS  OF  THE  FLAD  FILES  ON  THE  ASC  CATALOG 

Table  B2  lists  every  element  (subroutine,  data  set,  object  module,  etc) 
that  appears  in  the  FLAD  files,  with  an  indication  of  which  of  the  23  FLAD 
tiles  the  element  appears  in.  For  the  purposes  of  this  table,  the  23  files 
are  broken  oown  into  four  groups:  FORTRAN  files,  data  and  job  specification 
files,  output  files,  and  object  and  link  editor  files. 

Table  81  lists  all  of  the  symbols  that  are  used  to  describe  the  elements 
in  Table  82. 


TABLE  81 

SYMBOLS  USED  IN  TABLE  B2 


SYMBOL  DESCRIPTION 


A  FORTRAN  routine. 

All  of  the  FORTRAN  routines  that  seem  to  be  part  of  the  basic  FLAD 
package  (that  is,  that  are  linked  toegether  with  SIZER)  are 
indicated  by  an  asterisk  before  their  names  in  Table  B2. 

A  partial  description  of  the  ,,FLASTICH  package,  which  is  "CLAD" 
with  the  NRL  modifications. 

A  data  set  of  type  1:  Program  Size 

A  data  set  of  type  2:  Program  Control  and  Target  Geometries 

A  data  set  of  type  3:  Material  Property 

A  data  set  of  type  4:  Time  Dependent  Auxiliary  Heating 

A  data  set  of  type  5:  Beam  Description 

A  description  of  one  of  the  CLAD  subroutines.  The  first  four 
letters  of  this  subroutine's  name  is  a  condensation  of  the  name  of 
the  subroutine  it  describes. 


TABLE  61  (Continued) 
SYMBOLS  USED  IN  TABLE  B2 


DESCRIPTION 


PIGTST  is  a  non-FORTRAN  program  (perhaps  PL/1).  It  appears  in 
library  "A"  as  an  addition  to  subroutine  "SIZER."  The  text  of 
this  program  language  starts  in  column  5,  so  CIFER  treated  it  as  a 
long  continuation  of  "SIZER," 

A  number  of  programs  are  called  "MAIN"  in  these  files  because 
CIFER  names  any  program  that  lacks  a  SUBROUTINE,  PROGRAM  or 
FUNCTION  statement  "MAIN".  "B00083"  and  "SETUP"  are  two  of  these, 
and  they  are  listed  both  under  their  own  names  and  "MAIN". 

"SIZER"  is  probably  another.  There  is  no  easy  way  to  tell  what  an 
object  program  named  "MAIN"  actually  is. 

JSL  file. 

Output  file — sometimes  the  corresponding  input  data  is  included. 


a 
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TABLE  B2 

LOCATION  OF  VARIOUS  FLAD  ELEMENTS 


FGRTRAN _ 

A  B  G  H  N  0  P 


DATA  &  JSL 
C  D  R  E  F 


OUTPUT 
S  T  V  U 


QMQDS  &  LMODS 
I  JKLHU 


*A8TST1 

• 

F 

F 

• 

• 

• 

• 

• 

• 

• 

• 

0 

0 

0 

• 

• 

AG6AS2 

• 

• 

• 

• 

3 

3 

• 

• 

• 

• 

• 

• 

• 

9 

9 

AL2024 

3 

* 

• 

• 

3 

3 

3 

• 

• 

• 

• 

• 

• 

9 

0 

AL2024T1 

• 

• 

• 

• 

3 

3 

• 

• 

• 

• 

• 

• 

0 

0 

B000831 

F 

• 

• 

F 

• 

• 

• 

• 

• 

• 

0 

0 

0 

*BEAM 

• 

F 

F 

• 

• 

• 

• 

0 

0 

0 

9 

*CAPCN3 

• 

F 

F 

• 

• 

• 

• 

• 

0 

0 

0 

0 

CAT06 

• 

• 

• 

• 

j 

j 

• 

• 

• 

• 

• 

0 

0 

0 

CAT  12 

• 

• 

• 

• 

j 

j 

• 

• 

• 

• 

• 

0 

0 

0 

CIFEX 

J 

• 

• 

• 

j 

• 

• 

• 

• 

• 

0 

0 

0 

*C0MC0N 

• 

F 

F 

• 

• 

* 

• 

• 

0 

0 

0 

0 

*C0N 

« 

F 

F 

• 

• 

• 

• 

• 

0 

0 

0 

0 

CONDUC 

F 

F 

• 

• 

• 

• 

• 

• 

0 

• 

• 

CONVEC 

• 

F 

• 

• 

• 

• 

• 

• 

0 

• 

• 

CONVRT 

F 

F 

• 

• 

• 

• 

• 

• 

9 

• 

• 

DATA 

2 

2 

• 

• 

• 

• 

• 

• 

9 

0 

• 

DATARK 

3 

3 

• 

• 

• 

• 

• 

• 

9 

9 

• 

DATASZ 

1 

1 

• 

• 

• 

• 

• 

• 

9 

9 

• 

DATATM 

4 

4 

• 

• 

• 

« 

• 

• 

• 

9 

• 

DIMEN 

• 

• 

F 

F 

• 

• 

• 

• 

• 

• 

• 

• 

• 

0 

DOCTOR 

F 

F 

• 

• 

• 

• 

• 

• 

9 

• 

• 

DONVRT 

F 

F 

• 

• 

• 

• 

• 

0 

• 

• 

0 

DUMP 

F 

F 

• 

• 

• 

• 

• 

• 

• 

• 

0 

ERASE 

• 

• 

• 

j 

j 

• 

• 

• 

• 

• 

• 

• 

• 

FACTR%A 

• 

F 

F 

• 

• 

• 

• 

• 

• 

• 

• 

• 

FINALX 

# 

# 

• 

• 

• 

• 

• 

• 

• 

• 

• 

*FIXUP 

• 

• 

F 

F 

• 

• 

• 

• 

• 

0 

0 

• 

• 

FLDXJSL 

• 

• 

• 

• 

j 

j 

• 

• 

• 

• 

• 

• 

• 

• 

FLUXN 

• 

F 

• 

F 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

v.- 


*OFUSGN 
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TABLE  B2  (Continued) 
LOCATION  OF  VARIOUS  FLAD  ELEMENTS 


FORTRAN  DATA  &  JSL  OUTPUT  OMODS  i  LMODS 


FILE 

A 

B 

G 

H 

N 

0 

P 

Q 

C 

D 

R 

E 

F 

S 

T 

V 

W 

I  J 

K 

L 

M 

u 

QFUSTX 

i t 

i 

• 

• 

•  • 

• 

• 

RADIAN 

• 

• 

F 

• 

•  • 

0 

• 

0 

RANDRV 

F 

F 

• 

• 

•  • 

• 

• 

• 

0 

RANDU 

F 

F 

• 

• 

•  • 

• 

• 

• 

0 

RANSEQ 

F 

F 

• 

• 

•  • 

• 

• 

» 

RDRKTX 

i 

i 

• 

•  • 

• 

• 

0 

■ 

RDTMTX 

i 

i 

• 

•  • 

• 

• 

0 

• 

*READRK 

• 

F 

F 

• 

.  0 

0 

0 

0 

• 

*READTM 

4 

F 

F 

4 

4 

• 

• 

.  0 

0 

0 

0 

• 

RECMPFXI 

• 

• 

j 

j 

• 

•  0 

• 

• 

0 

• 

RECMPNXL 

• 

• 

j 

j 

• 

•  • 

• 

• 

0 

■ 

RSLMC 

F 

• 

F 

• 

• 

•  • 

• 

• 

0 

• 

S304K038 

• 

• 

3 

3 

• 

• 

•  * 

• 

• 

0 

• 

S304R038 

• 

• 

3 

3 

• 

• 

•  0 

• 

• 

0 

• 

*SET 

• 

F 

F 

• 

.  0 

0 

0 

0 

• 

SETUP1 

• 

F 

F 

• 

• 

•  • 

• 

• 

• 

• 

SETTX 

t 

t 

• 

• 

•  • 

• 

• 

0 

0 

SHOOT 

• 

j 

j 

• 

•  « 

• 

0 

0 

0 

♦SIZER 

1 

1 

F 

F 

1 

1 

• 

• 

•  • 

• 

0 

0 

0 

SPACER 

• 

h 

h 

• 

•  • 

• 

0 

• 

0 

SPECIF 

F 

F 

• 

• 

•  • 

• 

0 

• 

0 

♦STEP 

• 

F 

F 

• 

• 

.  0 

0 

0 

0 

• 

STEPTX 

i 

t 

• 

• 

•  • 

• 

• 

• 

• 

STL304 

3 

3 

3 

• 

• 

•  • 

• 

• 

• 

* 

STLCR 

3 

3 

3 

• 

• 

•  • 

• 

• 

• 

• 

♦SURFER 

« 

F 

F 

• 

• 

• 

• 

.  0 

0 

• 

• 

• 

TARG 

F 

2 

2 

2 

• 

• 

•  • 

• 

• 

• 

• 

TC1ADIOO 

• 

• 

• 

• 

P 

P 

• 

0  0 

• 

0 

« 

• 

TC2AE100 

• 

• 

• 

• 

P 

P 

• 

0  0 

• 

• 

• 

• 

TC3AE100 

• 

• 

• 

• 

P 

P 

• 

0  0 

• 

• 

• 

• 

THRDTX 

t 

i 

• 

• 

• 

• 

• 

0  0 

* 

• 

• 

• 

TABLE  82  (Continued) 
LOCATION  OF  VARIOUS  FLAD  ELEMENTS 


FILE 

*THREED 

THREEH 

UCC 

UNA 

USERPX 

HALL 

WRITER 

*ZAPNOD 

ZAPNTX 

output 


FORTRAN 
A  8  G  H  N 

.  .  F  F 

.  .  F  F 

F  F  .  .  . 

F  F  .  .  . 

f  #  .  .  . 


.  .  F  F 
.  .  F  F 
.  .  F  F 


Q 


DATA  &  OSL  OUTPUT  CHOPS  &  LMODS 
CDREF  STVW  IJKLMU 

•  ••••  *  »  .  .  .  0  0  0  0  . 


p  p 


0  0 
0  0 


0  0 


t  t 


END 

FILMED 

1-85 

DTIC 


MM 
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